unit dForma_Pagamento;

interface
uses
classes,
dObjects;

type
Tforma_pagamento=class(TdObjects)
private
fdescrpagamento : string;
fdtalteracao : tdatetime;
fflagativo : boolean;
fflagavista : boolean;
fflagboleto : boolean;
fflagcartao : boolean;
fflagcheque : boolean;
fidpagamento : integer;
public
constructor create; 
destructor destroy; override;
procedure clear;
published
 property descrpagamento : string read fdescrpagamento write fdescrpagamento;
 property dtalteracao : tdatetime read fdtalteracao write fdtalteracao;
 property flagativo : boolean read fflagativo write fflagativo;
 property flagavista : boolean read fflagavista write fflagavista;
 property flagboleto : boolean read fflagboleto write fflagboleto;
 property flagcartao : boolean read fflagcartao write fflagcartao;
 property flagcheque : boolean read fflagcheque write fflagcheque;
 property idpagamento : integer read fidpagamento write fidpagamento;
end;

implementation

constructor Tforma_pagamento.create;
begin
inherited;
clear;
self.addpk(['idpagamento']);
self.TableName := 'forma_pagamento';
end;
destructor Tforma_pagamento.destroy;
begin
inherited destroy;
end;
procedure Tforma_pagamento.clear;
begin
 fdescrpagamento:='';
 fdtalteracao   :=0;
 fflagativo     :=false;
 fflagavista    :=false;
 fflagboleto    :=false;
 fflagcartao    :=false;
 fflagcheque    :=false;
 fidpagamento   :=0;
end;


end.
 